home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1999 July / Software of the Month - Ultimate Collection Shareware 263.iso / pc / Xtras / Behavior Library.cst / 00022_Script_Sound Play File < prev    next >
Text File  |  1997-11-17  |  2KB  |  65 lines
  1. --  Sound Play File
  2.  
  3.  
  4. -- also functions through lingo by handling message 'initPlayFile', 
  5. -- for example if this behavior was assigned to sprite 5, use
  6. -- sendsprite 5, #initPlayFile
  7.  
  8. -- Media
  9. -- behavior library version 1.1
  10.  
  11. property WhichEvent, WhichSound, WhichChannel, StartImmediately
  12. property tester
  13.  
  14. on initPlayFile me
  15.   init me
  16. end
  17.  
  18. on mouseUp me
  19.   if whichEvent = #mouseup    then init me
  20. end
  21.  
  22. on mouseDown me
  23.   if whichEvent = #mousedown  then init me
  24. end
  25.  
  26. on prepareFrame me
  27.   if whichEvent = #prepareframe then init me
  28. end
  29.  
  30. on enterFrame me
  31.   if whichEvent = #enterframe then init me
  32. end
  33.  
  34. on exitFrame me
  35.   if whichEvent = #exitframe  then init me
  36. end
  37.  
  38. on init me
  39.   sound playFile the whichChannel of me, the soundFile of me
  40. end
  41.  
  42. ---
  43.  
  44. on getPropertyDescriptionList
  45.   
  46.   set p_list = [      #soundFile: [ #comment:   "Sound File:",                     #format:   #string,                    #default:   "" ],   #whichChannel: [ #comment:   "Channel:",                     #format:   #integer,                    #default:    1 ],     #whichEvent: [ #comment:   "Initializing Event:",                     #format:   #symbol,                      #range: [ #MouseUp, #MouseDown, #PrepareFrame,#EnterFrame, #ExitFrame, #InitPlayFile],                    #default:   #MouseUp ]                 ]
  47.   return p_list  
  48. end
  49.  
  50. on BeginSprite me
  51.   -- check for relative pathnames and convert them to absolutes
  52.   -- to support organizing files in subdirectories
  53.   set f = the soundFile of me
  54.   if (( f contains "\" ) OR ( f contains "/" )) then  -- trying to specify a path
  55.     if NOT ( f contains ":" ) then                    -- leave absolute paths alone
  56.       set the soundFile of me = the moviePath & the soundFile of me
  57.     end if
  58.   end if
  59. end
  60.  
  61. on getBehaviorDescription
  62.   return "Plays the designated external sound file ( AIFF or WAVE format ) when the specified event occurs." & RETURN & "PARAMETERS:" & RETURN & "ò Sound - Enter the file name of the external sound file to be played. If the file is not in the same folder as the movie, enter the relative pathname. To play a sound from the internet, enter a URL."  & RETURN & "ò Channel - Enter the number of the sound channel to be used for playback."  & RETURN & "ò Initializing Event - Specify the event that triggers the behavior."
  63. end
  64.  
  65.